┌────────────────────────────────┐ │ ░░░ ░░▓ ░▓▓ ███ ▓▓░ ▓░░ │ │ ~ M O O N ~ │ └────────────────────────────────┘

prd-web-01.centraldc.gr

✎ EDIT FILE

EDITING: Version.pm

# Copyright (C) 2001-2021 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <https://www.gnu.org/licenses/>.

package Automake::Version;

use 5.006;
use strict;
use warnings FATAL => 'all';

use Automake::ChannelDefs;

=head1 NAME

Automake::Version - version comparison

=head1 SYNOPSIS

use Automake::Version;

print "Version $version is older than required version $required\n"
    if Automake::Version::check ($version, $required);

=head1 DESCRIPTION

This module provides support for comparing versions string
as they are used in Automake.

A version is a string that looks like
C<MAJOR.MINOR[.MICRO][ALPHA][-FORK]> where C<MAJOR>, C<MINOR>, and
C<MICRO> are digits, C<ALPHA> is a character, and C<FORK> any
alphanumeric word.

Usually, C<ALPHA> is used to label alpha releases or intermediate
snapshots, C<FORK> is used for git branches or patched releases, and
C<MICRO> is used for bug fixes releases on the C<MAJOR.MINOR> branch.

For the purpose of ordering, C<1.4> is the same as C<1.4.0>, but
C<1.4g> is the same as C<1.4.99g>.  The C<FORK> identifier is ignored
in the ordering, except when it looks like C<-pMINOR[ALPHA]>: some
versions were labeled like C<1.4-p3a>, this is the same as an alpha
release labeled C<1.4.3a>.  Yes, it's horrible, but Automake did not
support two-dot versions in the past.

=head2 FUNCTIONS

=over 4

=item C<split ($version)>

Split the string C<$version> into the corresponding C<(MAJOR, MINOR,
MICRO, ALPHA, FORK)> tuple.  For instance C<'1.4g'> would be split
into C<(1, 4, 99, 'g', '')>.  Return C<()> on error.

=cut

sub split ($)
{
  my ($ver) = @_;

# Special case for versions like 1.4-p2a.
  if ($ver =~ /^(\d+)\.(\d+)(?:-p(\d+)([a-z]+)?)$/)
  {
    return ($1, $2, $3, $4 || '', '');
  }
  # Common case.
  elsif ($ver =~ /^(\d+)\.(\d+)(?:\.(\d+))?([a-z])?(?:-([A-Za-z0-9]+))?$/)
  {
    return ($1, $2, $3 || (defined $4 ? 99 : 0), $4 || '', $5 || '');
  }
  return ();
}

=item C<compare (\@LVERSION, \@RVERSION)>

Compare two version tuples, as returned by C<split>.

Return 1, 0, or -1, if C<LVERSION> is found to be respectively
greater than, equal to, or less than C<RVERSION>.

=cut

sub compare (\@\@)
{
  my @l = @{$_[0]};
  my @r = @{$_[1]};

for my $i (0, 1, 2)
  {
    return 1  if ($l[$i] > $r[$i]);
    return -1 if ($l[$i] < $r[$i]);
  }
  for my $i (3, 4)
  {
    return 1  if ($l[$i] gt $r[$i]);
    return -1 if ($l[$i] lt $r[$i]);
  }
  return 0;
}

=item C<check($VERSION, $REQUIRED)>

Handles the logic of requiring a version number in Automake.
C<$VERSION> should be Automake's version, while C<$REQUIRED>
is the version required by the user input.

Return 0 if the required version is satisfied, 1 otherwise.

=cut

sub check ($$)
{
  my ($version, $required) = @_;
  my @version = Automake::Version::split ($version);
  my @required = Automake::Version::split ($required);

prog_error "version is incorrect: $version"
    if $#version == -1;

# This should not happen, because process_option_list and split_version
  # use similar regexes.
  prog_error "required version is incorrect: $required"
    if $#required == -1;

# If we require 3.4n-foo then we require something
  # >= 3.4n, with the 'foo' fork identifier.
  return 1
    if ($required[4] ne '' && $required[4] ne $version[4]);

return 0 > compare (@version, @required);
}

1;

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📄 ChannelDefs.pm	PM	13.8 KB	2021-07-12 02:41	EDIT
📄 Channels.pm	PM	19.8 KB	2021-07-12 02:41	EDIT
📄 Condition.pm	PM	14.8 KB	2021-07-12 02:41	EDIT
📄 Config.pm	PM	1.5 KB	2024-11-27 00:00	EDIT
📄 Configure_ac.pm	PM	2.9 KB	2021-07-12 02:41	EDIT
📄 DisjConditions.pm	PM	14 KB	2021-07-12 02:41	EDIT
📄 FileUtils.pm	PM	8.5 KB	2021-07-12 02:41	EDIT
📄 General.pm	PM	2 KB	2021-07-12 02:41	EDIT
📄 Getopt.pm	PM	2.2 KB	2021-07-12 02:41	EDIT
📄 Item.pm	PM	4.1 KB	2021-07-12 02:41	EDIT
📄 ItemDef.pm	PM	2 KB	2021-07-12 02:41	EDIT
📄 Language.pm	PM	2.8 KB	2021-07-12 02:41	EDIT
📄 Location.pm	PM	5.4 KB	2021-07-12 02:41	EDIT
📄 Options.pm	PM	11.2 KB	2021-07-12 02:41	EDIT
📄 Rule.pm	PM	23.5 KB	2021-07-12 02:41	EDIT
📄 RuleDef.pm	PM	2.2 KB	2021-07-12 02:41	EDIT
📄 VarDef.pm	PM	8.4 KB	2021-07-12 02:41	EDIT
📄 Variable.pm	PM	44.9 KB	2021-07-12 02:41	EDIT
📄 Version.pm	PM	3.8 KB	2021-07-12 02:41	EDIT
📄 Wrap.pm	PM	3.7 KB	2021-07-12 02:41	EDIT
📄 XFile.pm	PM	7.3 KB	2021-07-12 02:41	EDIT

Η σελίδα δεν βρέθηκε – BIO Προσαρμογή

Ωπα! Αυτή η σελίδα δε βρέθηκε.

Φαίνεται ότι δεν βρέθηκε τίποτα σε αυτή τη θέση. Ίσως να προσπαθήσετε να ψάξετε για κάτι άλλο;